home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Tool Chest / Dev.CD Feb 97 TC.toast / Sample Code / Files / MoreFiles 1.4.4 / Pascal Interfaces / MoreDesktopMgr.p < prev    next >
Encoding:
Text File  |  1996-12-17  |  3.0 KB  |  104 lines  |  [TEXT/MPS ]
  1. UNIT MoreDesktopMgr;
  2.  
  3. {    Apple Macintosh Developer Technical Support                                }
  4. {                                                                            }
  5. {    A collection of useful high-level Desktop Manager routines.                }
  6. {    If the Desktop Manager isn't available, use the Desktop file            }
  7. {    for 'read' operations.                                                    }
  8. {                                                                            }
  9. {    We do more because we can...                                            }
  10. {                                                                            }
  11. {    by Jim Luther and Nitin Ganatra,                                        }
  12. {        Apple Developer Technical Support Emeriti                            }
  13. {                                                                            }
  14. {    File:        MoreDesktopMgr.p                                            }
  15. {                                                                            }
  16. {    Copyright © 1992-1996 Apple Computer, Inc.                                }
  17. {    All rights reserved.                                                    }
  18. {                                                                            }
  19. {    You may incorporate this sample code into your applications without        }
  20. {    restriction, though the sample code has been provided "AS IS" and the    }
  21. {    responsibility for its operation is 100% yours.  However, what you are    }
  22. {    not permitted to do is to redistribute the source as "DSC Sample Code"    }
  23. {    after having made changes. If you're going to re-distribute the source,    }
  24. {    we require that you make it clear in the source that the code was        }
  25. {    descended from Apple Sample Code, but that you've made changes.            }
  26.  
  27.  
  28. INTERFACE
  29.  
  30.     USES
  31.         Types, Files;
  32.  
  33. {***************************************************************************}
  34.  
  35.  
  36.     FUNCTION DTOpen (volName: StringPtr;
  37.                                     vRefNum: Integer;
  38.                                     VAR dtRefNum: Integer;
  39.                                     VAR newDTDatabase: Boolean): OSErr;
  40.  
  41.     FUNCTION DTXGetAPPL (volName: StringPtr;
  42.                                     vRefNum: Integer;
  43.                                     creator: OSType;
  44.                                     searchCatalog: Boolean;
  45.                                     VAR applVRefNum: Integer;
  46.                                     VAR applParID: LongInt;
  47.                                     VAR applName: Str255): OSErr;
  48.  
  49.     FUNCTION DTGetAPPL (volName: StringPtr;
  50.                                     vRefNum: Integer;
  51.                                     creator: OSType;
  52.                                     VAR applVRefNum: Integer;
  53.                                     VAR applParID: LongInt;
  54.                                     VAR applName: Str255): OSErr;
  55.  
  56.     FUNCTION FSpDTGetAPPL (volName: StringPtr;
  57.                                     vRefNum: Integer;
  58.                                     creator: OSType;
  59.                                     VAR spec: FSSpec): OSErr;
  60.  
  61.     FUNCTION DTGetIcon (volName: StringPtr;
  62.                                     vRefNum: Integer;
  63.                                     iconType: Integer;
  64.                                     fileCreator: OSType;
  65.                                     fileType: OSType;
  66.                                     VAR iconHandle: Handle): OSErr;
  67.  
  68.     FUNCTION DTSetComment (vRefNum: Integer;
  69.                                     dirID: LongInt;
  70.                                     name: StringPtr;
  71.                                     comment: Str255): OSErr;
  72.  
  73.     FUNCTION FSpDTSetComment ({CONST}
  74.                                     VAR spec: FSSpec;
  75.                                     comment: Str255): OSErr;
  76.  
  77.     FUNCTION DTGetComment (vRefNum: Integer;
  78.                                     dirID: LongInt;
  79.                                     name: StringPtr;
  80.                                     VAR comment: Str255): OSErr;
  81.  
  82.     FUNCTION FSpDTGetComment ({CONST}
  83.                                     VAR spec: FSSpec;
  84.                                     VAR comment: Str255): OSErr;
  85.  
  86.     FUNCTION DTCopyComment (srcVRefNum: Integer;
  87.                                     srcDirID: LongInt;
  88.                                     srcName: StringPtr;
  89.                                     dstVRefNum: Integer;
  90.                                     dstDirID: LongInt;
  91.                                     dstName: StringPtr): OSErr;
  92.  
  93.     FUNCTION FSpDTCopyComment ({CONST}
  94.                                     VAR srcSpec: FSSpec;
  95.                                     {CONST}
  96.                                     VAR dstSpec: FSSpec): OSErr;
  97.  
  98.  
  99. {***************************************************************************}
  100.  
  101.  
  102. IMPLEMENTATION
  103.  
  104. END.